home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / INTEGER TO TEXT (EXEC).txt < prev    next >
Text File  |  2012-02-16  |  570b  |  23 lines
  1. CALL-936
  2. POKE33,33
  3. CLR
  4. PRINT"NOMONI,O,C"
  5. POKE768,PEEK(74)
  6. POKE769,PEEK(75)
  7. POKE770,PEEK(76)
  8. POKE771,PEEK(77)
  9. POKE772,PEEK(202)
  10. POKE773,PEEK(203)
  11. CALL-151
  12. 4A:6 3 C0 3 N 306:C4 40 00 0D 03 84 1E CC 40 00 1A 03 CC C9 D3 D4 C9 CE C7 1E EB 29
  13. CA:C0 3 1A 3 N 3D0G
  14. 1 PRINT"OPEN";L$:PRINT"DELETE";L$:PRINT"OPEN";L$:PRINT"WRITE";L$
  15. 2POKE74,PEEK(768):POKE75,PEEK(769):POKE76,PEEK(770):POKE77,PEEK(771):POKE202,PEEK(772):POKE203,PEEK(773):
  16. 3 LIST:PRINT"      ":PRINT"CLOSE":END
  17. PRINT"MONO"
  18. GOTO1
  19. PRINT"NOMONO"
  20. TEXT
  21. PRINT "PROGRAM SAVED IN TEXT FILE CALLED       LISTING"
  22.  
  23.